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MODULE GETREQ ( 
LANGUAGE (OL 18536) « 
a = 'v04-000' 
BEGIN 


' 
LRA R RARER AAR AAA AAA AREA AREA AERA AAA AAA AAA AAA AAR ARATE 


i® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
t® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
‘* OUANSFERREOY NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
.* . 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJE 
t* AND SHOULD NOT BE CONSTRUED AS A COMM 
'® CORPORATION. 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 
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# 

FACILITY: F11ACP Structure Level 1 

i ABSTRACT: 


This routine gets the next 1/0 request from the ACP queue. 
If no requests are queued, it hibernates. 


i ENVIRONMENT : 
STARLET operating system, including privileged systes gervteas 


and internal exec routines. This routine must be calle 
in kernel mode. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 19-Dec-1976 17:26 
MODIFIED BY: 


me ee ee ee ee ee ee ee a ee tte 


v03-012 CDS0008 Christian D. Saether 29-July-1984 
Reflect the addition of a fourth buffer pool. 
v03-011 CDS0007 Christian D. Saether 8-July-1984 


Break up routine into more blocks with their own 
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GETREQ bese Sep-1984 VAX=11 Bliss-32_V4.0-742 al GET 
V 500 14- ~Sep-1984 99: 36; 35 DISKSVMSMASTER: a 1X.SRCIGETREQ.B32; 39 Sid 04 
3 8 058 1! bind_common declaration so compiler does not 
; Fe 823 | generate so many cse pointers. 
a. 061 1: VO3=010 ACG0424 Andrew C. Goldstein, 26-Apr-1984 21:50 | 
to = Bes 1! Don't convert BYPASS to SYSPRV in building LOCAL ARB; 
: & 0065 1! include READALL in CLF_SYSPR 
; 664 0064 1! : A 
: 65 0065 1 i VO3-009 LMPO221 ark Pilan 27-Mar-1984 13:22 | 
; & 0066 1! Change cre _ownic™ to ORBSL POUNER and UCB$W_VPROT to | 
; 67 0067 1! ORBSW_ . 
; & 0068 1! : 
3 9 B06? 1! v03-008 AcG0608 Andrew C. Goldstein, 20-Mar-1984 16:13 ; 
; £9 TA } Reduce size of LOCAL_ARB 
a. # 0072 1! v03-007 CDS0006 Christian D. Saether 13-Feb-1984 
3 fe, Booz : } Do not initialize BUFFER. NEW anymore = it's gone. 
on 0075 1! v03-006 Seay yi Christian D. Saether peeteeerres 
; 0076 1! Use BIND_COMMON macro to reduce number of ; 
Ree ia 0077 1! external” declarations. ; 
; ££ 0078 1! Move COMMON initialization and context save/restore : 
3 79 0079 1! routines here such that COMMON module contains only ; 
3 HY tt : } data declarations. : 
. 0082 1! v03-005 CDS0004 Christian D. Saether 15-Sep-1983 
36 «6S 0083 1! Call the per request init routine here only if 
; ee bose } a packet is actually present. | ; 
; 86 0086 1! v03-004 CDS0003 Christian D. Saether 2=Sep-1983 | ; 
; Oo 0087 1! Don't save channel ucb here. It wey have eneeety | . 
; & 0088 1! been changed from a previous operation that got ; 
; »§ 0089 1! put on the queue. : 
; 0090 1! ; 
; 0091 1! v03-003 CDS0002 Christian D. Saether 27-Aug-1983 
; & 0092 1! Move get_ccb routine to inifcp module. Use I0_CCB 
Lhe. 0093 1! instead Of calling get_ccb. 
; | «94 0094 1! 
s 9 0095 1! v03-002 CDS0001 C Saether 18-Jul-1982 
3 38 Boas : Changes to support procedure based file system. 
; 0098 1! v03-001 LMP0037 L. Mark Pilant, 28-Jun-1982 15:10 3 
3 190 94 : Remove the addressing mode module switch. : 
; 6101 git 1! v02-008 LMP0003 L. Mark Pilant, 99-Dec-1981 13:30 
3 106 B108 ! Make external references use general mode addressing ; Z 
3 104 0104 1! v02-007 ACG38100 Andrew C. Goldstein, 3-Jun-1981 12:00 7 € 
3 19? B12 : Fix granting of SYSPRV to volume owner : , 
3 199 0109 1! V02-006 ACG0167 Andrew C. Goldstein le-tor= -1980 19:26 : M 
; 108 0108 1! Previous revision history moved to F11B.REV | 3 ¢ 
3; 109 0109 1 !ee 
s 110 0110 1 
: 111 git} 1 
3 M6 \N8 1 LIBRARY ‘SYS a. 18 r BaB st L32'; 
3: («11 01135 1 REQUIRE ‘SRC$:F -B32'; 
; 61946 1104 1 
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: L_NORM NOVALUE; ! initialize common 


T_COMMON 
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GLOBAL ROUTINE GET_REQUEST : L_NORM = 

~ 
FUNCTIONAL DESCRIPTION: 

This routine gets the next 1/0 request from the ACP queue. 


CALLING SEQUENCE: 
GET_REQUEST () 


| 
| 
| 
| 
INPUT PARAMETERS: 
Rone 


IMPLICIT INPUTS: 
XQP_QUEUVE: Queue of request packets for this process 
IO_CHANNEL: 1/0 channel number 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
CURRENT_UCB: address of UCB of request 
CURRENT_VCB: address of VCB of request 


e 
CURRENT_WINDOW: window of file if accessed 


PRIMARY_FCB: FCB of file if accessed 


ROUTINE VALUE: 
address of request I/0 packet 
0 if no more packets. 


SIDE EFFECTS: ; 
1/0 channel assigned to device of request 


LOCAL 
ORB : REF BBLOCK, ' local address of ORB 
ABD : REF BBLOCKVECTOR C,ABD$C_LENGTH), 
' pointer to buffer descriptor packet 
ARB : REF BBLOCK, =! pointer to caller's ARB 
PACKET : REF BBLOCK; ' address of new I/0 packet 
EXTERNAL 


MEW | O OONOA UNE WN O ODNOA UE WN 0 OBNOUEWN “OVO ONAULSWN—O 


EXESGL_SYSUIC : ADDRESSING_MODE (ABSOLUTE); 
' highest SYSTEM UIC 


BIND_COMMON; 


EXTERNAL ROUTINE 
PMS_START : L NORM; ! init pms database. 


Attempt to dequeue a packet. If unsuccessful, return 0. 
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GETREQ 1b-Se 1984 234: VAX-11 Bliss-32 V4.0-742 Page 5 
V 500 ) a a 7 99:35:98 DISKSVMSMASTER:CF11X.SRCIGETREQ.832;1 . (2) 
176 IF REMQUE (,XQP_QUEUE, PACKET) 
THEN RETURN 0; 


Initialize common and start pms monitering. 


PMS_START (); 
INIT_COMMON (); 


First check the type code in the packet. 


IF_ .PACKETCIRPSB_TYPE] NEQ DYNSC_IRP 
THEN BUG_CHECK (NOTIRPAQB, FATAL; ‘Not IRP pointer in AQB'); 
: 


0800090000 COCO CD CD CO “II 
DONAULSWN—OOOn~ 


' Set up the UCB and VCB pointers and assign the 1/0 channel to the UCB. 
! Check the type codes on all packets and control blocks. 


CURRENT_UCB = .PACKETCIRPS$L_UCB); 
te . CURRENT UCBCUCBS$B_TYPE) NEQ DYNS$C_UCB 


EN BUG_CHECK (NOTUCBIRP, FATAL, ‘Not UCB pointer in IRP'); 
CURRENT_FIB = LOCAL_F IB; 


' Get the window and FCB addresses if there is a file open on the channel. : 
If the low bit of the window pointer is on, ignore the pointer (deaccess pending). 


. (PACTKETCIRPSL_WIN 

THEN CURRENT WINDOW = 0; 

IF_.(PACKETCIRP$L_WINDJ5<1,2> NEQ 0 

THEN BUG_CHECK (BADWCBPT, FATAL, ‘Bad WCB pointer in IRP"); 


IF .CURRENT_WINDOW NEQ 0 
THEN 


EGIN 
CURRENT WINDOWCWCBSB_ TYPE) NEQ DYNSC WCB 
EN BUG_CHECK (NOTWCBIRP, FATAL, ‘Not WCB Pointer in IRP'); 


BDOODOOCOSO0O0 00000 OOO 090000090009 09 09 09 09 SINS NINN NII OAOAOO 
ABUE WN OO ONAWUES WN (OO ONAUE WN OO OONAUS WN" OOONOU 


POPOPONOPONIPONY 2 2 tt = 


IF 
TH 
IF_ .CURRENT WINDOWCWCBSV_NOTFCP) 

THEN BUG_CHECK (NOTFCPWCB, FATAL, ‘Not FCP window in IRP"); 
cu 

IF 

T 


ean wander Dib a Recs oe Oe ee 


FPWR CO OONOULSWIN “OO ONAOUES WN (“SO OONOUSwr— 


| 
| 
| 
! | 
CURRENT _WINDOW = -PACKETCIRPSL_WIND]; | 


RRENT_UCB = .CURRENT_WINDOWCWCBSL_ORGUCBI; 
. CURRENT _UCBCUCB$B_TYPE] NEQ DYNSC_UC f 
HEN BUG_CHECK (NOTUCBWCB, FATAL, ‘Bad UCB pointer in window"); 


| 

PRIMARY FCB = 5 CURRENT WINDOWCWCBSL_FCBI; 
IF .PRIMARY_FCBLFCBS8 TYPE) NEQ DYNSC_FCB | 
THEN BUG_CHECK (NOTFCBWCB, FATAL, 'Bad FCB pointer in window"); | 
| 

CHSMOVE (FIDSC_LENGTH, PRIMARY_FCBCFCBS$W_FIDJ, LOCAL_F IBLF IBSW_FIDJ); 


N 
ORB = .CURRENT_UCBCUCBSL_ORB); 
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CURRENT_VCB = .CURRENT_UCBCUCBSL_VCBI; 
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GETREQ 16-Sep- 4: VAX-11 Bliss-32 V4.0-742 
V *500 1a-Sep- 1984 99: 35 i DISKSVMSMASTER:CF11X.SRCIGETREQ.B32; fag "2 


: 3 1 3 IF CURRENT VCBCVCB$B_TYPE] NEQ DYNS$C_VCB ; 
3 : } ? THEN G_CHECK (NOTVCBUCB, FATAL, ‘Not VCB pointer in UCB"); : 
; 6 1225 ett REMY = avifaurge ? veetvcent RVTJ; ‘ 
: ? 1 § IF_ .CURR TCRVT NEQ BYNSC_RVT : 
: 8 1 AND CUORRENT™ a TYPE] NEQ DYNS$SC_UCB ° 
; 23 8 THEN BUG_CHECK (NOTRVTOCB, FATAL, ‘Not RVT pointer in VCB'); : 
; $e ! 9 CURRENT_RVN = .CURRENT_VCBCVCB$W_RVNI; ‘ 
; ae ie : Stuff the UCB of the device we want into our channel. ‘ 
: 245 1234 3 
; $¢8 1$32 IO_CCBCCCBSL_UCB] = .CURRENT_UCB; ; 
; 248 1539 ! If this is a normal Hike precesser request (as opposed to a window turn), : 
> 249 \$38 ' clear the byte count in the descriptor for pe channel wloten pointer ‘ 
; $20 1239 ! to inhibit write-back. Set the spool file bit is this is 1/0 to a spool file. ‘ 
3 go) 1240 : This is denoted for ACP functions by rotten that IRP$L_UCB is different ; 
; S26 \sh) from IRPSL_MEDIA (the Latter containing the spooled device UCB address. : 
3; 254 1323 : 
$ 29 1244 IF .PACKETCIRP$V_COMPLX) : 
: 2m 1245 . THEN : 
s gor 1246 GIN : 
; 258 1247 3 ABD = .BBLOCK C. parce TC ee SVAPTE], AIBSL_DESCRIPTI; ‘ 
s @oF 1248 3 ABDCABDSC_W WINDOW, UN ’ 
; 260 1249 IF .PACKETCIRPSL. uCcBI NEG sPACKETELRPSL MEDIA] ‘ 
; 261 1250 3 THEN CLEANUP PFLAGSECLE _SPOOLFILE] = 1; : 
; 568 1382 3M 
; $ee 1388 ; , If there is no buffer packet, the function must be an ACP control function. : 
; 266 ioe 2 ‘ 
3 267 1256 § ELSE ; 
; 268 1257 : 
: 269 1258 3 IF vert tae bt? GTRU 10$_LOGICAL ; 
; 270 1259 3 AND .PACKETCIRP$V_FCODE] NEQ IO$_ACPCONTROL : 
3 2re ise? 3 reese BUG_CHECK (NOBUFPCKT, FATAL; ‘Required buffer packet not present’); : 
: 27 1262 2 . ; 
> 274 1368 ! Set the system privilege flag bit, based on the caller's UIC and : 
2 are 1264 ! privileges. : 
3 6 1265 i : 
. ar 1266 ; 
; 78 1267 ARB = sPacKeyt inet ARB); : 
: 279 1268 CHSMOVE (ARBSC_HEADER, .ARB, LOCAL_ARB); 3 
: 380 1269 i MARBLARBSL “Uiedi<te: 16>"LEQU .EXESGL_SYSUIC : 
; 28¢ 1271 BEGIN 3 
: 8 1 % IF .ARBCARBSL_UIC] EQL .ORBCORBSL_OWNER) : 
; 284 127 THEN : 
; 6285 1274 4 BEGIN 3 
; 286 1275 4 CLEANUP_FLAGSCCLF_VOLOWNER] = : 
: 287 1 6 4 1 ; 
; 288 1277 4 END 3 
3; «289 1278 3 ELSE 0 : 
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} 
| 
| 


-EXTRN BUGS_NOTFCBWCB, BUG$_NOTVCBUCB 
-EXTRN BUGS_NOTRVTVCB, BUGS_NOBUFPCKT 


-PSECT S$CODES,NOWRT,2 


16-Sep-1984 VAX-11 Bliss-32 V4.0-742 7 
14- =tep- 1382 99: 35; 98 DISKSVMSMASTER:CF11X.SRCIGETREQ.B32; 439 * (2) 
: 290 1279 END 
: 291 1280 2 0R 
: 29 1281 BEGIN 
> 29 1 Be 4 IF (, (ARBCARB$L_UIC])<16,16> (ORBCORBSL_ OWN R1)<16, 16> 
; 3 83 4 AND "BBLOCK CLOTAL “ARBLARBSO_ BRivi. PRVSV_GRPPRVJ) 
: 296 1 ge 4 BEGIN 
: 297 1286 4 CLEANUP -FLAGSECLE_VOLOWNER] = 1; | 
> 298 1287 4 CLEANUP~FLAGSCCLF-GRPOWNER] = 1: 
: $99 1388 4 
: 300 1289 4 END 
: 301 1290 ; ELSE 0 
: 30 1291 END 
; 303 1298 THEN BBLOCK CLOCAL_ARBCARBSQ_PRIV], PRVSV_SYSPRV] = 
: 305 1094 2 IF .BBLOCK CLOCAL_ARBLARBS$Q_PRIV], PRVSV_SYSPRV 
> 306 1295 OR :BBLOCK CLOCAL"ARBCARB$Q-PRIV]. PRVSV~BYPASS 
: 307 1296 : OR .BBLOCK CLOCAL-ARBLARB$Q-PRIV]. PRVSV-READALL] 
: 308 1297 2 THEN CLEANUP_FLAGSCCLF_SYSPRV] = 1; 
: 309 1298 2 
: 310 1299 g RETURN .PACKET; 
> 311 1300 
; 312 1301 1 END; ! end of routine GETREQ 
.TITLE GETREQ 
IDENT \V04-000\ 
.EXTRN EXESGL_SYSUIC, PMS_STAR | 
~-EXTRN BUG$_NOTIRP RPAGB, anu NOTUCBIRP 
-EXTRN BUGS$_BADWCBP $ NoTwe 
-EXTRN BUGS- =NOTF Bucs, eBus. NOTUCBUCE 
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03FC 00000 .ENTRY GET REQUEST, Save R2,R3.R4,R5,R6,R7,R8,R9 ; 1108 
57 94 AA 9E 00002 MOVAB -108(BASE), R7 > 1154 
52 0C AA 9E 00006 MOVAB 12(BASE a? ; 
53 0204 CA 9E 9000A MOVAB 516(BAS a, R3 ; 
a 0284 CA 9E OO00F MOVAB 644(BASE). RB : 
56 FF4O DA OF 00014 REMQUE @-192(BASE), PACKET > 1165 
03 1¢ 90019 BVC I$ : 
014A 31 00018 BRW 20$ : 
00006 CF 00 FB OOO1E 1S: CALLS #0, PMS START : 11 
0000V CF 00 FB 000 CALLS #0. INI NIT C COMM 14 
OA 0A Ab 91 000 CMPB) —s_- 10 (PACKET) , : 11 
04 13 0002C BEQL 2$ : 
FEFF 000 BUGW : 11 
0000* 00 WORD BUGS NOTIRPAGB  4> ; 
67 1¢ a6 DO 00032 28 MOVL 2 (PACKET ; :11 
50 67 BO 00 MOVL  (R7) > 1185 
10 0A Ad 91 00039 CMPB 10cR6)" #16 ; 
04 13 00030 BEQL 3$ : 
FEFF O003F BUGW : 1186 | 
0000* 00041 .WORD <BUGS_NOTUCBIRP!4> : 
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363 bytes, Routine Base: S$CODE$ + 0000 


; Routine Size: 


“pip eas rh al a iT Re a eR i= ae ARR a CE TR ) 
=742 p 0| 
$ age 


! Initialization consists of perenne the impure area and then setting the 
' user request status to 1 (success). 

! Also init the per-process buffer queues. These can be moved out of | 
per-request initialized common and only initialized at process creation. 


Wwn—oo 


CHSFILL (0 JMPURE_SIZE, IMPURE _START); 
USER_STATUSLO] = 17 


BFRQ = BFR_LIST; 


INCR POOL FROM 0 TO 3 | 
dO 


BEGIN 
~-BFRQ = .BFRQ; 


D 14 
GETREQ 16-Sep-1984 234: VAX=-11 Bliss-32 V4.0 
V FOO 18-808-1 382 00:35:98 DISKSVMSMASTER: CF11X.SRCIGETREQ.832;1 
; 14 0 ROUTINE INIT_COMMON : L_NORM NOVALUE = 
; 316 1304 1 !44 | 
3; a 1305 1! 
: 18 ! $6 ! FUNCTIONAL DESCRIPTION: 
: 320 1308 1! This routine contains the impure data base for FCP, and is called | 
: 5 1310 : to initialize it. 
4 . | 
H 35 1311 1 =! CALLING SEQUENCE: 
: ee 1318 : INIT_COMMON () 
: 32 1314 1 | INPUT PARAMETERS: 
: 327 1315 1/1 NONE | 
s 328 1316 1! 
3 362 1317 1 =! IMPLICIT INPUTS: 
; 330 1318 1! NONE 
3 $3! 1319 1! 
P 32 1320 1 ! OUTPUT PARAMETERS: 
> 333 1321 1! NONE 
: 334 1356 1! 
s 335 132 1 ! IMPLICIT OUTPUTS: 
s 336 13246 1! NONE 
.- aor 1325 1! 
; ow 1326 1 ! ROUTINE VALUE: 
; 339 7 ae NONE 
; 340 1328 1! 
s 361 1329 1 ! SIDE EFFECTS: 
3 $06 1330 1! DATABASE INITIALIZED 
a 1331 11 | 
> 344 1332 1 !-- 
: 345 1333 1 | 
; 346 1334 2 BEGIN 
3: 347 1335 2 
; 348 1336 2 BIND_COMMON; 
: 349 1337 2 
s 350 1338 2 EXTERNAL LITERAL 
> 351 1339 2 IMPURE _SIZE; | 
; $26 1340 § 
i 1341 LOCAL 
: 354 136 2 BFRQ; 
; 55 134 $ | 
3 56 1344 
: 32/ 1345 § 
3 58 1346 
3; i 1347 2 
; i 1348 
; 1349 
: 1350 
1383 
3 1338 
7 1335 
: 3 $ 
: 1358 


SAAD AASAAO 


COONOM 
MAMA 
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; Routine Size: 533 bytes, Routine Base: SCODES + 0168 


19 4 VAX=-11 Bliss-32 V4.0-742 
1a-Sep- 4 93: 3; 8 DISKSVMSMASTER: tt 11X.SRCIGETREQ.B32; 4 
; 371 1359 BFRQ = -BERQ + 4: 
.- oe 1360 .BFRQ = .BFRQ = 4; 
: 37 1361 BFRQ = brre + 4; 
: 374 1 66 END; 
: 75 136 
: 376 1364 1 END; ! end of routine INIT_COMMON 
.EXTRN IMPURE_SIZE 
003C 00000 INIT_COMMON: 
WORD Save R2,R3,R4,R5 
0000G 8F 00 6E es 00 2c 90002 mMovcS #0, (SPS, Py “#IMPURE_SIZE, -128(BASE) 
80 AA 01 00 00008 OVL -128 (BASE) 
50 CC AA 9E OO00F MOVAB <5 “35(BASE), BFROQ 
51 00013 CLRL OOL 
80 50 DO 00015 1$: MOVL BFRG (BFRQ)s 
80 FC AO H 00018 MOVAB -4(RO), (BFRQ)+ 
FS 51 03 F3 0001C AOBLEQ #3, POOL, 1$ 
04 00026 ET 


ehuitdiubububus =aiab 
WAIANAE 
Fnr1cmviw Of” 


F 14 
Jo~3e0~ 1386 99: 34:98 VAX-11 Bliss-32 V4.0-742 
14-Sep-1984 12:50: DISKSVMSMASTER:CF11X.SRCIGETREQ.B32; 479 


setup. 


IF .CONTEXT_SAVE NEQ 0 
THEN BUG_CHECK (ACPRECURS, FATAL, ‘Attempted recursion in ACP secondary operation’); 


CHSMOVE (CONTEXT SIZE, CONTEXT START, CONTEXT_SAVE); 
CHSFILL (9. CON ONTEXT SIZE, CONTEXT Art); 

CHSFILL (0, FIBSC LENGTH. SECOND_ "rip 

CURRENT_F 1B = SECON 

CONTEXT™ ~SAVECCLF “CLEANUPS = 


END; ! end of routine SAVE_CONTEXT 


3 375 ] $3 } GLOBAL ROUTINE SAVE_CONTEXT : L_NORM NOVALUE = 
: 380 1 gs 1 lee 

: 381 1368 1! 

3 B : 9 } FUNCTIONAL DESCRIPTION: 

> «384 iar): ee This routine saves the reentrant context area in the context save 
3 38? ’ te ' area and initializes the context for a secondary operation. 
; Ser 1374 1! 

: 388 1375 1°! CALLING SEQUENCE: 

; 389 1376 1/3 SAVE_CONTEXT () 

; 390 ida 

s 591 1378 1 =! INPUT PARAMETERS: 

: 336 1379 1! NONE 

; 359 1380 1! 

>; 394 1381 1 =! IMPLICIT INPUTS: 

3 395 1386 1! ACP impure area 

; 396 1385 1! 

; 397 1384 1 ! OUTPUT PARAMETERS: 

; 398 1385 1! NONE 

; 399 1386 1! 

; 400 1387 1 =! IMPLICIT OUTPUTS: 

: 401 1388 1! NONE 

: 402 1389 1! 

; 403 1390 1 ! ROUTINE VALUE: 

; 404 ise, 3? NONE 

: 405 1338 1! 

; 406 139 1 ! SIDE EFFECTS: 

; 407 1394 1! NONE 

; 408 1395 1! 

; 409 1396 1 !-- 

; 1397 #1 

: 1398 2 BEGIN 

3 1399 2 

; 1400 2 BIND_COMMON; 

3 1401 2 

3 1008 2 MAP 

3 \ehr § CONTEXT_SAVE : BITVECTOR; 
: 1e6e 2 ! Check for excessive recursion in the ACP; then save the context and do the 
: 1407 

: 1408 

3 1409 

: 1410 

1212 

: 1218 

2 1414 

: 1415 

: 1416 

$ 1417 

3 1418 1 


Pat at ot at ot ot ot pt et tt et et et 
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14 | 
GETREQ 1. Sep-1984 00:34: VAX=11 Bliss-32 V4.0-742 13, 
V 500 14- =3eP 71 Oe 99:35:98 DISKSVMSMASTER:CFIIX. SRCIGETREQ.B32;1 sage (4) | v04 
.EXTRN BUGS$_ACPRECURS | 
003¢ 000 ENTRY SAVE CONTEXT, Save R2,R3,R4,R5 : 1365 
36 «AA OD 00 TSTL 4 (BASE + 1409 
04 1 BEQL ©-1$ : 
Fer 0 BUGW + 1410 
0000* 9 <WORD ais ACPRECURS! 4> : 
36 OAA 6A 36 28 00008 1$ MOVC TBASE), 54(BASE) + 141 
36 00 6E 00 C 01 movC5 #0, (SP), #6, #54, (BASE) + 141 
0040 =8F 00 bE nocd 00 2c 0016 mMovcS #0, (SP), #0, #64, 5S80(BASE) + 1414 
10 AA 0244 CA 9E $0020 MOVAB S80(BASE), 16(BASE) + 1415 
37 AA 02 88 00026 BISB2 #2, 55(BASE) + 1416 
04 0002A RET + 1418 


; Routine Size: 43 bytes, Routine Base: SCODES + 018C¢ 
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H 14 
GETREQ 16-Sep-1984 X-11 Bliss-32 V4.0-742 1 
vO4~000 14-Se p= 1984 z 93: 36: ii SKSVMSMASTER: CF11X.SRCIGETREQ.B32; 1 : (5 


| 
4| 
) 
GLOBAL ROUTINE RESTORE_CONTEXT : L_NORM NOVALUE = 


; 433 1419 1 

> 434 1420 1 
; 435 1421 1 !44 
; 436 14 ¢ 1 i 

; : 1? ? ! FUNCTIONAL DESCRIPTION: 
: 439 1425 1: This routine restores the reentrant context area from the context save 
; 440 14 § 13 area. 

: 441 14 1/ 
; 44 1428 1 

s 646 1429 1 | CALLING SEQUENCE: 

> 4446 1430 1: RESTORE_CONTEXT () 

> 445 1431 1! 

: 446 136 1 ! INPUT PARAMETERS: 

: 447 1433 1! NONE 

: 448 1434 1} 

: 449 1435 1°! IMPLICIT INPUTS: 

; 450 1436 1! ACP impure area 

: 451 1437 1! 

: 452 1438 1 | OUTPUT PARAMETERS: 

> 453 1439 1: NONE 

3; 454 1440 1: 
: 455 1441 1 aMPLICIY OUTPUTS: 

>; 456 at 1! ONE 

; 457 1443 1! 

; 458 1444 1 | ROUTINE VALUE: 

; 459 1445 1! NONE 

: 460 1446 1} 

: 461 1447 1! SIDE tt) Bs 

; 186 1448 1 | ONE 

: 46 1449 1! 

> 464 1450 1 i- 

: 465 1451 1 

: 466 1936 BEGIN 

; 467 145 

; 468 1454 BIND_COMMON; 

; 469 1455 2 2 

; rth 1528 2 : Check for excessive unstacking in the ACP; then restore the context. 

: Of, 1458 $ 

3; 467 1459 IF .CONTEXT_SAVE EQL 0 

: rt He THEN BUG_CHECK CACPUNSTAK, FATAL, ‘Attempted unstack in ACP primary context"); 

; 47 1696 CHSMOVE (CONTEXT_SIZE, CONTEXT_SAVE, CONTEXT_START); 

; 47 146 CLEANUP_FLAGSCCLF_CLEANUP] = 07 | 
; 478 1464 CONTEXT_SAVE = 0;7 
: 479 1465 : 

: 480 1466 1 END; ! end of routine RESTORE_CONTEXT 


.EXTRN BUGS_ACPUNSTAK | 


003¢ 00 ENTRY RESTORE CONTEXT, Save R2.R3,R4,R5 : 1419 | 
36 AA 3 TSTL  54(BASET > 1459 
FEFF UGW > 1460 
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GETREQ 18-Sep-1984 VAX-11 Bliss-32 V4 ae 42 
V “500 14-Sep-1 3B 99: 36; 5 DISKSVMSMASTER: CF 11X.SRCIGETREQ.B32; ‘ 
000* 9 WOR <BUGS_ACPUNSTAK!4> 
6A 3 AA 38 zs OB 1$: Aoves ey 54(BASE), (BASE) 
1 AA A 1 BICB #2, HS ad 
36 =o AA Re 14 CLRL 54 (BASE) 
4 17 RET 
; Routine Size: 24 bytes, Routine Base: S$CODE$ + 0187 
; «4481 1467 
; tbs 1468 END 
; 48 1469 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: SCODES 463 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Oe ee ee ee ee SYEROLG cocccone Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 59 0 1000 00:02.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GETREQ/OBJ=OBJ$:GETREQ MSRC$:GETREQ/UPDATE=(ENHS$:GETREQ) 


; Size: 463 code + 0 data bytes 
; Run Time: 243. 
: Elapsed Time: 1:26.0 


2 
3 Loxenes/Cy-Rins 64943 
; Used: 274 pages 


: Lines/CPU Min: 
: coe hy Complete 
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